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RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
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RRRRRRRR MM MM 000000 cccccccc HH HH KK KK SSSSSSSS UU UU MM MM 

RRRRRRRR MM MM 000000 cccccccc =H HH KK KK SSSSSSSS UU UU MM MM 

RR RR MMMM MMMM 00 00 cc HH HH KK KK SS UU UU MMMM MMMM 

RR RR MMMM MMMM 00 00 cc HH HH KK KK SS UU UU MMMM MMMM 

RR RR MM MM MM 00 0000 CC HH HH KK KK SS UU UU MM MM MM 

RR RR MM MM MM 00 0000 CC HH HH KK KK SS UU UU MM 

RRRRRRRR MM MM 88 00 QO CC HHHHHHHHHH = KKKKKK SSSSSS UU UU MM MM 

RRRRRRRR MM mm 00 00 OO CC HHHHHHHHHH = KKKKKK SSSSSS UU UU MM MM 

RR RR MM MM 0000 00 cc HH KK K SS UU UU MM MM 

RR RR MM mM 0000 00 cC HH HH KK KK SS UU UU MM MM 

RR RR MM mM 00 00 cc HH HH KK KK SS UU UU MM MM eoee 
RR RR MM mm 00 00 CC HH HH KK KK SS UU UU MM MM cece 
RR RR MM MM 000000 cCCCCCCC OHH HH KK KK S$SSSSSSS UUUUUUUUUU MM MM cece 
RR RR MM MM 000000 cccccccc =H HH KK KK SSSSSSSS UUUUUUUUUU MM MM cece 
LL T1111] SSSSSSSS 

LL 11111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL II111 SSSSSSSS 

LLLLLLLLLL H1111 SSSSSSSS 
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<PIC,NOSHR,NOWRT> 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, | MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
IX l TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTW R 
S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TRANSFERRED NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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rms32 


. ; Abstract: 


this module provides two routines to handle the checksum 
word for file prologs. 


; Environment: 


; Author: 


star processor running starlet exec. 


L F Laverdure, Creation Date: 10-OCT-1977 


; Modified By: 


Facility: 


v03-002 KBT0201 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
v03-001 KBT0101 Keith B. Thompson 13-Jul-1982 


Clean up psects 


v02-004 MCNO001 Maria del C. Nasr 10-Jun-1981 
Change PSECT to fix broken branch to this routine. 
v02-003 REFORMAT D M WALP 24-JUL-1980 
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~SBTTL DECLARATIONS 


SRMSDEF 


Include Files: 
Equated Symbols: 
Own Storage: 


Macros: 
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~SBTTL RMSCHKSUM = CALCULATE AND CHECK OR STORE CHECKSUM ROUTINES 


RMSCHKSUM 

entry at rm$chksum - te oe, checksum and compare with stored 
entry at rm$maksum - calculate checksum and store. 

Calling sequence: 


bsbw rm$chksum 
or bsbw rm$maksum 


Input Parameters: 

r5 = buffer addr 
Implicit Inputs: 

none 
Output Parameters: 


r0 status code 
ri,r2 destroyed 


Implicit Outputs: 

none 
Completion Codes: 

success=-1, failure=rm$_plg 
Side Effects: 


none 
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ECK ROUTINES ym 
* CULATE AND CHECK OR STORE SEP=1984 16:21:2 RMS. SRCIR moc CHKSUM.MAR; 1 (5) 


p++ 
3; entry point to check the checksum 


RMSCHKSUM: : 
BSBB CALSUM 
CMPW (R1),R2 


BNEQ ERRPLS 
RSB 


calculate checksum 

is stored checksum same 
as calculated value? 
branch if not 

return 


p++ 
3 entry point to store the checksum 


RMSMAKSUM: : 
BSBB CALSUM ; calculate sum 
MOVW R2,(R1) 3; store it 
RSB 3; and return 


344 
3; calculate check sum routine 
input: e5 = buffer addr 


output: r0 = -1 
ri = addr of checksum word in buffer 


r2 = calculate checksum value 
CALSUM: 
CLRL R2 3; init checksum 
OVL R5,R1 3 copy buffer addr 
MOVZBL #254. ,R0 3 : a. sum -1 
10$: ADDW2 = (R1)+,R2 3 
ponerse RO, 108 3 ky 558” times 
304 
3; handle error 
ERRPLG: 
RMSERR PLG ; declare error 
RSB 
~END 


= - a 
—___—____ 
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RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


3 
| RMOCHKSUM PROLOG CHECKSUM ROUTINES at] ia bs 0:13:4 AX/VMS Macro V04-00 
Symbol table -SEP-19 
_$S$.PSECT_EP = $08 00 
| SSRMSTEST = OOO1A 
| SSRMS_PBUGCHK = 0000 8 
| SSRMS_TBUGCHK = 00 $3 0 
SSRMS_UMODE = 4 0004 
CAL $30 OOE R 01 
ERRPLG 0000 443 R 01 
RMSCHKSUM 00000000 RG 01 
RMSMAKSUM 4 Fb RG 01 
RMS$_PLG = 0001861C 

power wn aarmnr omen aces + 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» es. & 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS3 00000024 eck Ot OR Bee PIC USR CON’ REL GBL NOSHR EXE 
SABSS 00000000 ¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE 

tme rn emer wm ene oD ame + 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization — 30 00:00:00.09  00:00:00.63 
Command processing 134 00:00:00.69 00:00:04.21 
Pass 171 00:00:02.55 00:00:10.03 
Symbol table sort 0 00:00:00.14 00:00:00.19 
Pass 2 41 OF a B88 00:00:02.11 
Symbol table output 3 00:00:00.02 00:00:00.17 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 Sha ae 00:00:00.00 
Assembler run totals 383 00:00:04.1 00:00:17.38 


The working set Limit was 1200 pages. : 

12248 bytes (24 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 229 non-local and 1 local symbols. 
168 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


_$255$DUA28: RAS OBJ IRAS AB; 1 4 
mit an § SYS.OBJJLIB.MLB;1 9 
$255$DUA28: (SYSLIBISTARLET.MLB;2 

TOTALS (all Libraries) 7 


311 GETS were required to define 7 macros. 


There were no errors, warnings or information messages. 
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SEP=1 RMS. SRCIRMOCH 


MACRO/LIS=L1S$:RMOCHKSUM/OBJ=0BJ$:RMOCHKSUM MSRC$:RMOCHKSUM/UPDATE=(ENHS: RMOCHKSUM) +EXECML$/LIB+LIB$:RMS/LIB 


ro V04-00 


KSUM.MAR; 1 


ENT CORPORATION 
AND PROPRIETARY 


